Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/ttedit/dragdrop.bas

BASIC Source File | 1994-11-28 | 2KB | 45 lines

Option Explicit

Type Msg                'used by peekmessage function
    hWnd As Integer
    message As Integer
    wparam As Integer
    lParam As Long
    time As Long
    PT As PointAPI
End Type

Global Const WM_DROPFILES = &H233
Global Const PM_NOREMOVE = 0
Global Const PM_NOYIELD = 2

Declare Sub DragAcceptFiles Lib "Shell" (ByVal hWnd As Integer, ByVal Accept As Integer)
Declare Function PeekMessage Lib "User" (lpMsg As Msg, ByVal hWnd As Integer, ByVal wMsgFilterMin As Integer, ByVal wMsgFilterMax As Integer, ByVal wRemoveMsg As Integer) As Integer
Declare Function DragQueryFile Lib "Shell" (ByVal hdrop As Integer, ByVal indexFilenum As Integer, ByVal lpFileName As String, ByVal buffsize As Integer) As Integer
Declare Sub DragFinish Lib "Shell" (ByVal hWnd As Integer)

Sub CheckDragDrop (Handle As Integer)
    Dim NewMessage As Msg
    Dim Fname  As String * 129
    Dim X As Integer
    Dim Counter As Integer
    Dim Temp$
    If PeekMessage(NewMessage, Handle, WM_DROPFILES, WM_DROPFILES, PM_NOREMOVE Or PM_NOYIELD) Then
    'Get number of files dropped
    X = DragQueryFile(NewMessage.wparam, True, Fname, 128)
    For Counter = 0 To X - 1   ' for each file dropped
        If DragQueryFile(NewMessage.wparam, Counter, Fname, 128) Then
        End If
        Temp$ = OpenFile(Fname)
        If Len(Temp$) Then
           Call NewFile
           MDI.ActiveForm.Caption = Fname
           MDI.ActiveForm.txtTextEdit = Temp$
        End If
    Next
     'call dragfinish to release d/d memory buffer
    DragFinish NewMessage.wparam
    End If
End Sub